Imports System.Data.SqlClient
Imports Microsoft.ApplicationBlocks.Data.SqlHelper

Public Class Clientes

    Public Function ObtenerClientes(ByVal Cliente As Long)
        Dim DS As New DataSet

        DS = Microsoft.ApplicationBlocks.Data.SqlHelper.ExecuteDataset(My.Settings.MiCadena, _
        CommandType.StoredProcedure, "ClientesObtener", New SqlParameter("@Cod_Cliente", Cliente))

        Return DS
    End Function
End Class
